{ Compiled on Sun Oct  8 22:04:01 2017 }
on init
message("")
declare $fg4rw
declare $sm4jx
declare $hq11w
declare %vmhqc[128]
declare $r3j1i
declare $11yen
declare $sljtd
declare %wwmtb[71]
declare $bgpgp
declare $ppeur
set_script_title("Midi-channels Remapper")
set_ui_height_px(210)
declare ui_button $ueojd
set_control_par_str(get_ui_id($ueojd),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Button")
set_control_par_str(get_ui_id($ueojd),$CONTROL_PAR_TEXT,"")
set_control_par(get_ui_id($ueojd),$CONTROL_PAR_POS_X,-10)
set_control_par(get_ui_id($ueojd),$CONTROL_PAR_POS_Y,191)
set_control_par(get_ui_id($ueojd),$CONTROL_PAR_WIDTH,100)
set_control_par(get_ui_id($ueojd),$CONTROL_PAR_HEIGHT,20)
declare %eix3q[4] := (56, 247, 438, 629)
declare %5ljez[9] := (3, 27, 51, 75, 99, 123, 147, 171, 195)
declare ui_label $os3ab(1, 1) 
set_control_par(get_ui_id($os3ab),$CONTROL_PAR_POS_X,0)
set_control_par(get_ui_id($os3ab),$CONTROL_PAR_POS_Y,0)
set_control_par(get_ui_id($os3ab),$CONTROL_PAR_WIDTH,628)
set_control_par(get_ui_id($os3ab),$CONTROL_PAR_HEIGHT,201)
set_control_par_str(get_ui_id($os3ab),$CONTROL_PAR_TEXT,"")
set_control_par_str(get_ui_id($os3ab),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "BG")
declare ui_label $4fkg5(1, 1) 
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_POS_X,%eix3q[0])
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_POS_Y,%5ljez[0])
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_WIDTH,188)
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_HEIGHT,24)
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par_str(get_ui_id($4fkg5),$CONTROL_PAR_TEXT,"Midi Channel Remapping")
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_FONT_TYPE,5)
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($4fkg5),$CONTROL_PAR_TEXTPOS_Y,4)
declare $mqxss
declare ui_menu $rxp0s
make_persistent($rxp0s)
read_persistent_var($rxp0s)
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_POS_X,%eix3q[0])
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($rxp0s),$CONTROL_PAR_HELP,"Choose type of midi-data to controls channel remapping")
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($rxp0s),$CONTROL_PAR_TEXTPOS_Y,4)
set_control_par_str(get_ui_id($rxp0s),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
add_menu_item($rxp0s,"CC",0)
add_menu_item($rxp0s,"KS",1)
add_menu_item($rxp0s,"Pr.Ch",2)
declare ui_menu $l5m5f
make_persistent($l5m5f)
read_persistent_var($l5m5f)
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_POS_X,%eix3q[0]+94)
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($l5m5f),$CONTROL_PAR_HELP,"Choose how many ports affected by this script")
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($l5m5f),$CONTROL_PAR_TEXTPOS_Y,4)
set_control_par_str(get_ui_id($l5m5f),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
add_menu_item($l5m5f,"All Ports",0)
add_menu_item($l5m5f,"Only port A",1)
add_menu_item($l5m5f,"Only port B",2)
add_menu_item($l5m5f,"Only port C",3)
add_menu_item($l5m5f,"Only port D",4)
add_menu_item($l5m5f,"Ports A to B",5)
add_menu_item($l5m5f,"Ports A to C",6)
select ($l5m5f)
case 1
$r3j1i := 0
$11yen := 15
case 2
$r3j1i := 16
$11yen := 31
case 3
$r3j1i := 32
$11yen := 47
case 2
$r3j1i := 48
$11yen := 63
case 5
$r3j1i := 0
$11yen := 31
case 6
$r3j1i := 0
$11yen := 74
case 0
$r3j1i := 0
$11yen := 63
end select
declare ui_value_edit $CcNr(1, 127, 1) 
make_persistent($CcNr)
read_persistent_var($CcNr)
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_POS_X,%eix3q[0])
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_WIDTH,62)
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($CcNr),$CONTROL_PAR_HELP,"CC, used for remapping. Minimal value represents channel 1 on the port A. Other ports placed on the values Min + 16 to Min +64. E.g. Channel 1 on the port B will be Min + 16")
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_FONT_TYPE,10)
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_label $Range(1, 1) 
set_control_par(get_ui_id($Range),$CONTROL_PAR_POS_X,%eix3q[0])
set_control_par(get_ui_id($Range),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($Range),$CONTROL_PAR_WIDTH,62)
set_control_par(get_ui_id($Range),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($Range),$CONTROL_PAR_HELP,"Range, used for remapping. Minimal value represents channel 1 on the port A. Other ports placed on the values Min + 16 to Min +64. E.g. Channel 1 on the port B will be Min + 16")
set_control_par(get_ui_id($Range),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($Range),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_value_edit $Min(1, 127, 1) 
make_persistent($Min)
$Min := 1
read_persistent_var($Min)
set_control_par(get_ui_id($Min),$CONTROL_PAR_POS_X,%eix3q[0]+62)
set_control_par(get_ui_id($Min),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($Min),$CONTROL_PAR_WIDTH,62)
set_control_par(get_ui_id($Min),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($Min),$CONTROL_PAR_HELP,"Start position of remap")
set_control_par(get_ui_id($Min),$CONTROL_PAR_FONT_TYPE,10)
set_control_par(get_ui_id($Min),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_value_edit $Max(1, 127, 1) 
make_persistent($Max)
read_persistent_var($Max)
$Max := 64
read_persistent_var($Max)
set_control_par(get_ui_id($Max),$CONTROL_PAR_POS_X,%eix3q[0]+124)
set_control_par(get_ui_id($Max),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($Max),$CONTROL_PAR_WIDTH,62)
set_control_par(get_ui_id($Max),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($Max),$CONTROL_PAR_HELP,"End position of remap")
set_control_par(get_ui_id($Max),$CONTROL_PAR_FONT_TYPE,10)
set_control_par(get_ui_id($Max),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_value_edit $yjlb4(0, 127, $VALUE_EDIT_MODE_NOTE_NAMES) 
make_persistent($yjlb4)
$yjlb4 := 1
read_persistent_var($yjlb4)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_POS_X,%eix3q[0]+62)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_WIDTH,62)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($yjlb4),$CONTROL_PAR_TEXT,"Min")
set_control_par_str(get_ui_id($yjlb4),$CONTROL_PAR_HELP,"Start position of remap")
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_FONT_TYPE,10)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_value_edit $lmbol(0, 127, $VALUE_EDIT_MODE_NOTE_NAMES) 
make_persistent($lmbol)
read_persistent_var($lmbol)
$lmbol := 64
read_persistent_var($lmbol)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_POS_X,%eix3q[0]+124)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_WIDTH,62)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($lmbol),$CONTROL_PAR_TEXT,"Max")
set_control_par_str(get_ui_id($lmbol),$CONTROL_PAR_HELP,"End position of remap")
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_FONT_TYPE,10)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_button $kdgjt
make_persistent($kdgjt)
read_persistent_var($kdgjt)
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_POS_Y,%5ljez[0])
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_WIDTH,188)
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($kdgjt),$CONTROL_PAR_TEXT,"Duplicate СCs on all Channels")
set_control_par_str(get_ui_id($kdgjt),$CONTROL_PAR_HELP,"Duplicate all CCs movements to all channels on all ports in the KONTAKT instantion")
set_control_par_str(get_ui_id($kdgjt),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_duplicate")
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_FONT_TYPE,5)
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($kdgjt),$CONTROL_PAR_TEXTPOS_Y,4)
declare $iz1y0 := 1
make_persistent($iz1y0)
read_persistent_var($iz1y0)
declare %t2nly[24]
declare %xtrlv[9]
make_persistent(%xtrlv)
read_persistent_var(%xtrlv)
declare $qxvcq
make_persistent($qxvcq)
read_persistent_var($qxvcq)
declare %kfmds[64]
declare ui_menu $psqqi
make_persistent($psqqi)
read_persistent_var($psqqi)
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($psqqi),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($psqqi),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($psqqi),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($psqqi,"None",-1)
add_menu_item($psqqi,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($psqqi,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $vq2nm
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($vq2nm),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($vq2nm),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($vq2nm),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($vq2nm),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $ji0kq
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ji0kq),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($ji0kq),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($ji0kq),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ji0kq),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[0] := get_ui_id($psqqi)
%t2nly[1] := get_ui_id($vq2nm)
%t2nly[2] := get_ui_id($ji0kq)
declare %juxkx[9]
make_persistent(%juxkx)
read_persistent_var(%juxkx)
declare $ifleo
make_persistent($ifleo)
read_persistent_var($ifleo)
declare %wk1rq[64]
declare ui_menu $s1m1r
make_persistent($s1m1r)
read_persistent_var($s1m1r)
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($s1m1r),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($s1m1r),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($s1m1r),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($s1m1r,"None",-1)
add_menu_item($s1m1r,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($s1m1r,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $4rrbn
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($4rrbn),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($4rrbn),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($4rrbn),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($4rrbn),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $zgubp
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($zgubp),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($zgubp),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($zgubp),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($zgubp),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[3] := get_ui_id($s1m1r)
%t2nly[4] := get_ui_id($4rrbn)
%t2nly[5] := get_ui_id($zgubp)
declare %0w0cg[9]
make_persistent(%0w0cg)
read_persistent_var(%0w0cg)
declare $t5rwa
make_persistent($t5rwa)
read_persistent_var($t5rwa)
declare %gfaxy[64]
declare ui_menu $pjshy
make_persistent($pjshy)
read_persistent_var($pjshy)
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_POS_Y,%5ljez[3])
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($pjshy),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($pjshy),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($pjshy),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($pjshy,"None",-1)
add_menu_item($pjshy,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($pjshy,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $oepih
set_control_par(get_ui_id($oepih),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($oepih),$CONTROL_PAR_POS_Y,%5ljez[3])
set_control_par(get_ui_id($oepih),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($oepih),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($oepih),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($oepih),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($oepih),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($oepih),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($oepih),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($oepih),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $egnks
set_control_par(get_ui_id($egnks),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($egnks),$CONTROL_PAR_POS_Y,%5ljez[3])
set_control_par(get_ui_id($egnks),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($egnks),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($egnks),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($egnks),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($egnks),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($egnks),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($egnks),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($egnks),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[6] := get_ui_id($pjshy)
%t2nly[7] := get_ui_id($oepih)
%t2nly[8] := get_ui_id($egnks)
declare %dswcz[9]
make_persistent(%dswcz)
read_persistent_var(%dswcz)
declare $x3cuq
make_persistent($x3cuq)
read_persistent_var($x3cuq)
declare %p52vu[64]
declare ui_menu $bmaa1
make_persistent($bmaa1)
read_persistent_var($bmaa1)
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_POS_Y,%5ljez[4])
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($bmaa1),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($bmaa1),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($bmaa1),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($bmaa1,"None",-1)
add_menu_item($bmaa1,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($bmaa1,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $ebibk
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_POS_Y,%5ljez[4])
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ebibk),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($ebibk),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($ebibk),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ebibk),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $ial5g
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_POS_Y,%5ljez[4])
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ial5g),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($ial5g),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($ial5g),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ial5g),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[9] := get_ui_id($bmaa1)
%t2nly[10] := get_ui_id($ebibk)
%t2nly[11] := get_ui_id($ial5g)
declare %abq1p[9]
make_persistent(%abq1p)
read_persistent_var(%abq1p)
declare $pw0db
make_persistent($pw0db)
read_persistent_var($pw0db)
declare %klvc4[64]
declare ui_menu $vdkem
make_persistent($vdkem)
read_persistent_var($vdkem)
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_POS_Y,%5ljez[5])
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($vdkem),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($vdkem),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($vdkem),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($vdkem,"None",-1)
add_menu_item($vdkem,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($vdkem,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $yu0aj
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_POS_Y,%5ljez[5])
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($yu0aj),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($yu0aj),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($yu0aj),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($yu0aj),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $vim2k
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_POS_Y,%5ljez[5])
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($vim2k),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($vim2k),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($vim2k),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($vim2k),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[12] := get_ui_id($vdkem)
%t2nly[13] := get_ui_id($yu0aj)
%t2nly[14] := get_ui_id($vim2k)
declare %rkvvz[9]
make_persistent(%rkvvz)
read_persistent_var(%rkvvz)
declare $vq0nm
make_persistent($vq0nm)
read_persistent_var($vq0nm)
declare %gvlwp[64]
declare ui_menu $b3gse
make_persistent($b3gse)
read_persistent_var($b3gse)
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_POS_Y,%5ljez[6])
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($b3gse),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($b3gse),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($b3gse),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($b3gse,"None",-1)
add_menu_item($b3gse,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($b3gse,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $sdykd
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_POS_Y,%5ljez[6])
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($sdykd),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($sdykd),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($sdykd),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($sdykd),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $ptcjy
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_POS_Y,%5ljez[6])
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ptcjy),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($ptcjy),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($ptcjy),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ptcjy),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[15] := get_ui_id($b3gse)
%t2nly[16] := get_ui_id($sdykd)
%t2nly[17] := get_ui_id($ptcjy)
declare %nwmyg[9]
make_persistent(%nwmyg)
read_persistent_var(%nwmyg)
declare $orsds
make_persistent($orsds)
read_persistent_var($orsds)
declare %n20pn[64]
declare ui_menu $zasdd
make_persistent($zasdd)
read_persistent_var($zasdd)
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($zasdd),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($zasdd),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($zasdd),$CONTROL_PAR_TEXTPOS_Y,4)
add_menu_item($zasdd,"None",-1)
add_menu_item($zasdd,"All",0)
$fg4rw := 1
while ($fg4rw<=127)
add_menu_item($zasdd,$fg4rw,$fg4rw)
inc($fg4rw)
end while
declare ui_button $gj1ot
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_POS_X,%eix3q[1]+94)
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_WIDTH,70)
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($gj1ot),$CONTROL_PAR_HELP,"Select options for this CC")
set_control_par_str(get_ui_id($gj1ot),$CONTROL_PAR_TEXT,"Options")
set_control_par_str(get_ui_id($gj1ot),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_button")
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($gj1ot),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $ulpy3
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_POS_X,%eix3q[1]+94+94-24)
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ulpy3),$CONTROL_PAR_HELP,"Delete CC from the stack")
set_control_par_str(get_ui_id($ulpy3),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par_str(get_ui_id($ulpy3),$CONTROL_PAR_TEXT,"X")
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ulpy3),$CONTROL_PAR_TEXTPOS_Y,4)
%t2nly[18] := get_ui_id($zasdd)
%t2nly[19] := get_ui_id($gj1ot)
%t2nly[20] := get_ui_id($ulpy3)
declare ui_button $x5mel
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_POS_X,%eix3q[1])
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_POS_Y,%5ljez[$iz1y0+1])
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_WIDTH,188)
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($x5mel),$CONTROL_PAR_TEXT,"Add Controller")
set_control_par_str(get_ui_id($x5mel),$CONTROL_PAR_HELP,"Add Controller to the copy stack. Be very careful! You can add several option of 'All CCs' with different options, but there is not protection from the idiot")
set_control_par_str(get_ui_id($x5mel),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Big_buttons")
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_TEXTPOS_Y,4)
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_TEXT_ALIGNMENT,1)
declare ui_label $f25m0(1, 1) 
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_POS_Y,%5ljez[0])
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($f25m0),$CONTROL_PAR_TEXT,"Options")
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_FONT_TYPE,5)
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_TEXTPOS_Y,4)
set_control_par(get_ui_id($f25m0),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
declare !pel4n[4]
!pel4n[0] := "Port A Ch"
!pel4n[1] := "Port B Ch"
!pel4n[2] := "Port C Ch"
!pel4n[3] := "Port D Ch"
declare $3e5hu
declare %mdxu0[16]
declare ui_menu $plc51
make_persistent($plc51)
read_persistent_var($plc51)
set_control_par(get_ui_id($plc51),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($plc51),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($plc51),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($plc51),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($plc51),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($plc51),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($plc51),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($plc51),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($plc51),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($plc51),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($plc51,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $4tdq1
make_persistent($4tdq1)
read_persistent_var($4tdq1)
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_POS_Y,%5ljez[1])
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($4tdq1),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($4tdq1),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($4tdq1),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($4tdq1),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[0] := get_ui_id($plc51)
%mdxu0[1] := get_ui_id($4tdq1)
declare ui_menu $f41zv
make_persistent($f41zv)
read_persistent_var($f41zv)
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($f41zv),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($f41zv),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($f41zv),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($f41zv),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($f41zv,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $aksxa
make_persistent($aksxa)
read_persistent_var($aksxa)
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_POS_Y,%5ljez[2])
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($aksxa),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($aksxa),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($aksxa),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($aksxa),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[2] := get_ui_id($f41zv)
%mdxu0[3] := get_ui_id($aksxa)
declare ui_menu $mhujk
make_persistent($mhujk)
read_persistent_var($mhujk)
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_POS_Y,%5ljez[3])
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($mhujk),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($mhujk),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($mhujk),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($mhujk),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($mhujk,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $jvlmm
make_persistent($jvlmm)
read_persistent_var($jvlmm)
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_POS_Y,%5ljez[3])
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($jvlmm),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($jvlmm),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($jvlmm),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($jvlmm),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[4] := get_ui_id($mhujk)
%mdxu0[5] := get_ui_id($jvlmm)
declare ui_menu $ds2bq
make_persistent($ds2bq)
read_persistent_var($ds2bq)
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_POS_Y,%5ljez[4])
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ds2bq),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($ds2bq),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($ds2bq),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ds2bq),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($ds2bq,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $qyytf
make_persistent($qyytf)
read_persistent_var($qyytf)
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_POS_Y,%5ljez[4])
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($qyytf),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($qyytf),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($qyytf),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($qyytf),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[6] := get_ui_id($ds2bq)
%mdxu0[7] := get_ui_id($qyytf)
declare ui_menu $2eux4
make_persistent($2eux4)
read_persistent_var($2eux4)
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_POS_Y,%5ljez[5])
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($2eux4),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($2eux4),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($2eux4),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($2eux4),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($2eux4,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $bdep4
make_persistent($bdep4)
read_persistent_var($bdep4)
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_POS_Y,%5ljez[5])
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($bdep4),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($bdep4),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($bdep4),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($bdep4),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[8] := get_ui_id($2eux4)
%mdxu0[9] := get_ui_id($bdep4)
declare ui_menu $qymue
make_persistent($qymue)
read_persistent_var($qymue)
set_control_par(get_ui_id($qymue),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($qymue),$CONTROL_PAR_POS_Y,%5ljez[6])
set_control_par(get_ui_id($qymue),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($qymue),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($qymue),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($qymue),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($qymue),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($qymue),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($qymue),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($qymue),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($qymue,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $shsm4
make_persistent($shsm4)
read_persistent_var($shsm4)
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_POS_Y,%5ljez[6])
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($shsm4),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($shsm4),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($shsm4),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($shsm4),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[10] := get_ui_id($qymue)
%mdxu0[11] := get_ui_id($shsm4)
declare ui_menu $ngbni
make_persistent($ngbni)
read_persistent_var($ngbni)
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_WIDTH,164)
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ngbni),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($ngbni),$CONTROL_PAR_TEXT,"Ch")
set_control_par_str(get_ui_id($ngbni),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Opt_menu")
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ngbni),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
add_menu_item($ngbni,!pel4n[$fg4rw/16] & ($fg4rw mod 16+1),$fg4rw)
inc($fg4rw)
end while
declare ui_button $4qsnv
make_persistent($4qsnv)
read_persistent_var($4qsnv)
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_POS_X,%eix3q[2]+188-24)
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_WIDTH,24)
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($4qsnv),$CONTROL_PAR_HELP,"Choose which CCs will be duplicated")
set_control_par_str(get_ui_id($4qsnv),$CONTROL_PAR_TEXT,"X")
set_control_par_str(get_ui_id($4qsnv),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "X_button")
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($4qsnv),$CONTROL_PAR_TEXTPOS_Y,4)
%mdxu0[12] := get_ui_id($ngbni)
%mdxu0[13] := get_ui_id($4qsnv)
declare ui_menu $ngpxy
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_POS_X,%eix3q[2]+94)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_POS_Y,%5ljez[0])
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($ngpxy),$CONTROL_PAR_HELP,"You can choose type of filters for the selected CC. With the ONLY function CC will be duplicated only to the selected channels. With the IGRONE - CC will be duplicated on all channels except the chosen")
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_TEXTPOS_Y,4)
set_control_par_str(get_ui_id($ngpxy),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "CC_menu")
add_menu_item($ngpxy,"Ignore:",0)
add_menu_item($ngpxy,"Only:",1)
declare ui_button $gmomf
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_POS_X,%eix3q[2])
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_POS_Y,%5ljez[$3e5hu+1])
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_WIDTH,188)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($gmomf),$CONTROL_PAR_TEXT,"Add Option")
set_control_par_str(get_ui_id($gmomf),$CONTROL_PAR_HELP,"You can add filters for individual channels with this function. ")
set_control_par_str(get_ui_id($gmomf),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Big_buttons")
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $3wyx3
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_POS_X,%eix3q[0])
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($3wyx3),$CONTROL_PAR_TEXT,"Copy")
set_control_par_str(get_ui_id($3wyx3),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Half_button")
set_control_par_str(get_ui_id($3wyx3),$CONTROL_PAR_HELP,"Copy preset for pasting it into the another instance of KONTAKT")
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($3wyx3),$CONTROL_PAR_TEXTPOS_Y,4)
declare ui_button $bmyxn
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_POS_X,%eix3q[0]+94)
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_POS_Y,%5ljez[7])
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_WIDTH,94)
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_HEIGHT,24)
set_control_par_str(get_ui_id($bmyxn),$CONTROL_PAR_TEXT,"Paste")
set_control_par_str(get_ui_id($bmyxn),$CONTROL_PAR_PICTURE,"/Pianoist/Remapper/" & "Half_button")
set_control_par_str(get_ui_id($bmyxn),$CONTROL_PAR_HELP,"Paste preset, previously copied from another instance of KONTAKT")
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_FONT_TYPE,17)
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_TEXT_ALIGNMENT,1)
set_control_par(get_ui_id($bmyxn),$CONTROL_PAR_TEXTPOS_Y,4)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
if ($rxp0s=0)
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($Range),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
else
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($Range),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
end if
if ($rxp0s=1)
set_control_par(get_ui_id($Min),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($Max),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
else
set_control_par(get_ui_id($Min),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($Max),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($kdgjt=1)
if ($iz1y0<7)
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$iz1y0)
set_control_par(%t2nly[$fg4rw*3],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%t2nly[$fg4rw*3+2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%t2nly[$fg4rw*3],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
else
$mqxss := 0
$fg4rw := 0
while ($fg4rw<=6)
set_control_par(%t2nly[$fg4rw*3],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_VALUE,0)
set_control_par(%t2nly[$fg4rw*3+2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
inc($fg4rw)
end while
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_POS_Y,%5ljez[$iz1y0+1])
select ($mqxss)
case 0
$fg4rw := 0
while ($fg4rw<=6)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
inc($fg4rw)
end while
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
case 1
if (1>=1)
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
end if
case 2
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 3
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 4
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 5
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 6
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 7
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
end select
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_POS_Y,%5ljez[$3e5hu+1])
end on
function RemapPortsFunc
select ($l5m5f)
case 1
$r3j1i := 0
$11yen := 15
case 2
$r3j1i := 16
$11yen := 31
case 3
$r3j1i := 32
$11yen := 47
case 2
$r3j1i := 48
$11yen := 63
case 5
$r3j1i := 0
$11yen := 31
case 6
$r3j1i := 0
$11yen := 74
case 0
$r3j1i := 0
$11yen := 63
end select
end function
function SetChannel
if ($hq11w<=$Max)
$sljtd := $hq11w-$Min
end if
end function
function RenderPage
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
if ($rxp0s=0)
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($Range),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
else
set_control_par(get_ui_id($CcNr),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($Range),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
end if
if ($rxp0s=1)
set_control_par(get_ui_id($Min),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($Max),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
else
set_control_par(get_ui_id($Min),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($Max),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
set_control_par(get_ui_id($yjlb4),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($lmbol),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($kdgjt=1)
if ($iz1y0<7)
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$iz1y0)
set_control_par(%t2nly[$fg4rw*3],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%t2nly[$fg4rw*3+2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%t2nly[$fg4rw*3],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
else
$mqxss := 0
$fg4rw := 0
while ($fg4rw<=6)
set_control_par(%t2nly[$fg4rw*3],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%t2nly[$fg4rw*3+1],$CONTROL_PAR_VALUE,0)
set_control_par(%t2nly[$fg4rw*3+2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
inc($fg4rw)
end while
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
set_control_par(get_ui_id($x5mel),$CONTROL_PAR_POS_Y,%5ljez[$iz1y0+1])
select ($mqxss)
case 0
$fg4rw := 0
while ($fg4rw<=6)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
inc($fg4rw)
end while
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
case 1
if (1>=1)
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
end if
case 2
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 3
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 4
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 5
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 6
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
case 7
if ($3e5hu<7)
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
if ($3e5hu<8)
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(get_ui_id($ngpxy),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
$fg4rw := 0
while ($fg4rw<=6)
if ($fg4rw+1<=$3e5hu)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
else
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
set_control_par(%mdxu0[$fg4rw*2+1],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
end if
inc($fg4rw)
end while
end select
set_control_par(get_ui_id($gmomf),$CONTROL_PAR_POS_Y,%5ljez[$3e5hu+1])
end function
on ui_control($l5m5f)
call RemapPortsFunc
end on
on ui_control($ngpxy)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
select ($mqxss)
case 1
%xtrlv[1] := $ngpxy
case 2
%juxkx[1] := $ngpxy
case 3
%0w0cg[1] := $ngpxy
case 4
%dswcz[1] := $ngpxy
case 5
%abq1p[1] := $ngpxy
case 6
%rkvvz[1] := $ngpxy
case 7
%nwmyg[1] := $ngpxy
end select
end on
on ui_control($gmomf)
$gmomf := 0
inc($3e5hu)
select ($mqxss)
case 1
%xtrlv[0] := $3e5hu
case 2
%juxkx[0] := $3e5hu
case 3
%0w0cg[0] := $3e5hu
case 4
%dswcz[0] := $3e5hu
case 5
%abq1p[0] := $3e5hu
case 6
%rkvvz[0] := $3e5hu
case 7
%nwmyg[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($x5mel)
$x5mel := 0
inc($iz1y0)
call RenderPage
end on
on ui_control($kdgjt)
call RenderPage
end on
on ui_control($rxp0s)
call RenderPage
end on
on ui_control($Min)
$yjlb4 := $Min
end on
on ui_control($Max)
$lmbol := $Max
end on
on ui_control($yjlb4)
$Min := $yjlb4
end on
on ui_control($lmbol)
$Max := $lmbol
end on
on ui_control($3wyx3)
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[$fg4rw] := %xtrlv[$fg4rw]
inc($fg4rw)
end while
%wwmtb[7] := $qxvcq
%wwmtb[8] := $psqqi
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[9+$fg4rw] := %juxkx[$fg4rw]
inc($fg4rw)
end while
%wwmtb[16] := $ifleo
%wwmtb[17] := $s1m1r
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[18+$fg4rw] := %0w0cg[$fg4rw]
inc($fg4rw)
end while
%wwmtb[25] := $t5rwa
%wwmtb[26] := $pjshy
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[27+$fg4rw] := %dswcz[$fg4rw]
inc($fg4rw)
end while
%wwmtb[34] := $x3cuq
%wwmtb[35] := $bmaa1
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[36+$fg4rw] := %abq1p[$fg4rw]
inc($fg4rw)
end while
%wwmtb[43] := $pw0db
%wwmtb[44] := $vdkem
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[45+$fg4rw] := %rkvvz[$fg4rw]
inc($fg4rw)
end while
%wwmtb[52] := $vq0nm
%wwmtb[53] := $b3gse
$fg4rw := 0
while ($fg4rw<8)
%wwmtb[54+$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
%wwmtb[61] := $orsds
%wwmtb[62] := $zasdd
%wwmtb[64] := $rxp0s
%wwmtb[65] := $l5m5f
%wwmtb[66] := $CcNr
%wwmtb[67] := $Min
%wwmtb[68] := $Max
%wwmtb[69] := $kdgjt
%wwmtb[70] := $iz1y0
$bgpgp := save_array(%wwmtb,1)
end on
on ui_control($bmyxn)
$ppeur := load_array(%wwmtb,1)
end on
on async_complete
if ($NI_ASYNC_ID=$bgpgp)
$3wyx3 := 0
end if
if ($NI_ASYNC_ID=$ppeur)
$bmyxn := 0
$fg4rw := 0
while ($fg4rw<8)
%xtrlv[$fg4rw] := %wwmtb[$fg4rw]
inc($fg4rw)
end while
$qxvcq := %wwmtb[7]
$psqqi := %wwmtb[8]
$fg4rw := 0
while ($fg4rw<8)
%juxkx[$fg4rw] := %wwmtb[9+$fg4rw]
inc($fg4rw)
end while
$ifleo := %wwmtb[16]
$s1m1r := %wwmtb[17]
$fg4rw := 0
while ($fg4rw<8)
%0w0cg[$fg4rw] := %wwmtb[18+$fg4rw]
inc($fg4rw)
end while
$t5rwa := %wwmtb[25]
$pjshy := %wwmtb[26]
$fg4rw := 0
while ($fg4rw<8)
%dswcz[$fg4rw] := %wwmtb[27+$fg4rw]
inc($fg4rw)
end while
$x3cuq := %wwmtb[34]
$bmaa1 := %wwmtb[35]
$fg4rw := 0
while ($fg4rw<8)
%abq1p[$fg4rw] := %wwmtb[36+$fg4rw]
inc($fg4rw)
end while
$pw0db := %wwmtb[43]
$vdkem := %wwmtb[44]
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %wwmtb[45+$fg4rw]
inc($fg4rw)
end while
$vq0nm := %wwmtb[52]
$b3gse := %wwmtb[53]
$fg4rw := 0
while ($fg4rw<8)
%nwmyg[$fg4rw] := %wwmtb[54+$fg4rw]
inc($fg4rw)
end while
$orsds := %wwmtb[61]
$zasdd := %wwmtb[62]
$rxp0s := %wwmtb[64]
$l5m5f := %wwmtb[65]
$CcNr := %wwmtb[66]
$Min := %wwmtb[67]
$Max := %wwmtb[68]
$kdgjt := %wwmtb[69]
$iz1y0 := %wwmtb[70]
call RenderPage
end if
end on
on midi_in
if ($rxp0s=0)
if ($MIDI_BYTE_1=$CcNr and ($MIDI_COMMAND=$MIDI_COMMAND_CC))
ignore_midi
$hq11w := $MIDI_BYTE_2
call SetChannel
exit
end if
end if
if ($rxp0s=1)
if ($MIDI_COMMAND=$MIDI_COMMAND_NOTE_ON or ($MIDI_COMMAND=$MIDI_COMMAND_NOTE_OFF))
if (in_range($MIDI_BYTE_1,$Min,$Max))
ignore_midi
$hq11w := $MIDI_BYTE_1
call SetChannel
exit
end if
end if
end if
if ($rxp0s=2)
if ($MIDI_COMMAND=$MIDI_COMMAND_PROGRAM_CHANGE)
if (in_range($MIDI_BYTE_1,$Min,$Max))
ignore_midi
$hq11w := $MIDI_BYTE_1
call SetChannel
exit
end if
end if
end if
if (in_range($sljtd,$r3j1i,$11yen))
ignore_midi
if ($MIDI_COMMAND=$MIDI_COMMAND_CC)
if ($kdgjt=1)
if (1<=$iz1y0)
select ($psqqi)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%xtrlv[1]=0)
if (%xtrlv[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%xtrlv[0])
if (%xtrlv[$sm4jx+2] # $fg4rw and (%kfmds[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%kfmds[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%xtrlv[0])
if (%xtrlv[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$psqqi)
$fg4rw := 0
while ($fg4rw<=63)
if (%xtrlv[1]=0)
if (%xtrlv[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%xtrlv[0])
if (%xtrlv[$sm4jx+2] # $fg4rw and (%kfmds[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%kfmds[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%xtrlv[0])
if (%xtrlv[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
if ($kdgjt=1)
if (2<=$iz1y0)
select ($s1m1r)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%juxkx[1]=0)
if (%juxkx[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%juxkx[0])
if (%juxkx[$sm4jx+2] # $fg4rw and (%wk1rq[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%wk1rq[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%juxkx[0])
if (%juxkx[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$s1m1r)
$fg4rw := 0
while ($fg4rw<=63)
if (%juxkx[1]=0)
if (%juxkx[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%juxkx[0])
if (%juxkx[$sm4jx+2] # $fg4rw and (%wk1rq[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%wk1rq[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%juxkx[0])
if (%juxkx[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
if ($kdgjt=1)
if (3<=$iz1y0)
select ($pjshy)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%0w0cg[1]=0)
if (%0w0cg[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%0w0cg[0])
if (%0w0cg[$sm4jx+2] # $fg4rw and (%gfaxy[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%gfaxy[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%0w0cg[0])
if (%0w0cg[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$pjshy)
$fg4rw := 0
while ($fg4rw<=63)
if (%0w0cg[1]=0)
if (%0w0cg[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%0w0cg[0])
if (%0w0cg[$sm4jx+2] # $fg4rw and (%gfaxy[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%gfaxy[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%0w0cg[0])
if (%0w0cg[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
if ($kdgjt=1)
if (4<=$iz1y0)
select ($bmaa1)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%dswcz[1]=0)
if (%dswcz[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%dswcz[0])
if (%dswcz[$sm4jx+2] # $fg4rw and (%p52vu[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%p52vu[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%dswcz[0])
if (%dswcz[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$bmaa1)
$fg4rw := 0
while ($fg4rw<=63)
if (%dswcz[1]=0)
if (%dswcz[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%dswcz[0])
if (%dswcz[$sm4jx+2] # $fg4rw and (%p52vu[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%p52vu[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%dswcz[0])
if (%dswcz[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
if ($kdgjt=1)
if (5<=$iz1y0)
select ($vdkem)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%abq1p[1]=0)
if (%abq1p[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%abq1p[0])
if (%abq1p[$sm4jx+2] # $fg4rw and (%klvc4[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%klvc4[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%abq1p[0])
if (%abq1p[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$vdkem)
$fg4rw := 0
while ($fg4rw<=63)
if (%abq1p[1]=0)
if (%abq1p[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%abq1p[0])
if (%abq1p[$sm4jx+2] # $fg4rw and (%klvc4[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%klvc4[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%abq1p[0])
if (%abq1p[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
if ($kdgjt=1)
if (6<=$iz1y0)
select ($b3gse)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%rkvvz[1]=0)
if (%rkvvz[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%rkvvz[0])
if (%rkvvz[$sm4jx+2] # $fg4rw and (%gvlwp[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%gvlwp[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%rkvvz[0])
if (%rkvvz[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$b3gse)
$fg4rw := 0
while ($fg4rw<=63)
if (%rkvvz[1]=0)
if (%rkvvz[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%rkvvz[0])
if (%rkvvz[$sm4jx+2] # $fg4rw and (%gvlwp[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%gvlwp[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%rkvvz[0])
if (%rkvvz[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
if ($kdgjt=1)
if (7<=$iz1y0)
select ($zasdd)
case 0
$fg4rw := 0
while ($fg4rw<=63)
if (%nwmyg[1]=0)
if (%nwmyg[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%nwmyg[0])
if (%nwmyg[$sm4jx+2] # $fg4rw and (%n20pn[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%n20pn[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%nwmyg[0])
if (%nwmyg[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
case 1 to 64
if ($MIDI_BYTE_1=$zasdd)
$fg4rw := 0
while ($fg4rw<=63)
if (%nwmyg[1]=0)
if (%nwmyg[0]=0)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
$sm4jx := 0
while ($sm4jx<%nwmyg[0])
if (%nwmyg[$sm4jx+2] # $fg4rw and (%n20pn[$fg4rw] # 1))
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
%n20pn[$fg4rw] := 1
end if
inc($sm4jx)
end while
end if
else
$sm4jx := 0
while ($sm4jx<%nwmyg[0])
if (%nwmyg[$sm4jx+2]=$fg4rw)
set_midi($fg4rw,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
inc($sm4jx)
end while
end if
inc($fg4rw)
end while
end if
end select
end if
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
else
if ($MIDI_COMMAND=$MIDI_COMMAND_NOTE_ON)
%vmhqc[$MIDI_BYTE_1] := $sljtd
end if
if ($MIDI_COMMAND=$MIDI_COMMAND_NOTE_OFF)
set_midi(%vmhqc[$MIDI_BYTE_1],$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
else
set_midi($sljtd,$MIDI_COMMAND,$MIDI_BYTE_1,$MIDI_BYTE_2)
end if
end if
end if
end on
on ui_control($psqqi)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($vq2nm)
if ($vq2nm=1)
$4rrbn := 0
$oepih := 0
$ebibk := 0
$yu0aj := 0
$sdykd := 0
$gj1ot := 0
$mqxss := 1
$3e5hu := %xtrlv[0]
$ngpxy := %xtrlv[1]
$plc51 := %xtrlv[2]
$f41zv := %xtrlv[3]
$mhujk := %xtrlv[4]
$ds2bq := %xtrlv[5]
$2eux4 := %xtrlv[6]
$qymue := %xtrlv[7]
$ngbni := %xtrlv[8]
else
$vq2nm := 1
end if
call RenderPage
end on
on ui_control($ji0kq)
$ji0kq := 0
if (1>=1)
$fg4rw := 0
while ($fg4rw<8)
%xtrlv[$fg4rw] := %juxkx[$fg4rw]
inc($fg4rw)
end while
$psqqi := $s1m1r
end if
$fg4rw := 0
while ($fg4rw<8)
%juxkx[$fg4rw] := %0w0cg[$fg4rw]
inc($fg4rw)
end while
$s1m1r := $pjshy
$fg4rw := 0
while ($fg4rw<8)
%0w0cg[$fg4rw] := %dswcz[$fg4rw]
inc($fg4rw)
end while
$pjshy := $bmaa1
$fg4rw := 0
while ($fg4rw<8)
%dswcz[$fg4rw] := %abq1p[$fg4rw]
inc($fg4rw)
end while
$bmaa1 := $vdkem
$fg4rw := 0
while ($fg4rw<8)
%abq1p[$fg4rw] := %rkvvz[$fg4rw]
inc($fg4rw)
end while
$vdkem := $b3gse
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
$b3gse := $zasdd
dec($iz1y0)
call RenderPage
end on
on ui_control($s1m1r)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($4rrbn)
if ($4rrbn=1)
$vq2nm := 0
$oepih := 0
$ebibk := 0
$yu0aj := 0
$sdykd := 0
$gj1ot := 0
$mqxss := 2
$3e5hu := %juxkx[0]
$ngpxy := %juxkx[1]
$plc51 := %juxkx[2]
$f41zv := %juxkx[3]
$mhujk := %juxkx[4]
$ds2bq := %juxkx[5]
$2eux4 := %juxkx[6]
$qymue := %juxkx[7]
$ngbni := %juxkx[8]
else
$4rrbn := 1
end if
call RenderPage
end on
on ui_control($zgubp)
$zgubp := 0
$fg4rw := 0
while ($fg4rw<8)
%juxkx[$fg4rw] := %0w0cg[$fg4rw]
inc($fg4rw)
end while
$s1m1r := $pjshy
$fg4rw := 0
while ($fg4rw<8)
%0w0cg[$fg4rw] := %dswcz[$fg4rw]
inc($fg4rw)
end while
$pjshy := $bmaa1
$fg4rw := 0
while ($fg4rw<8)
%dswcz[$fg4rw] := %abq1p[$fg4rw]
inc($fg4rw)
end while
$bmaa1 := $vdkem
$fg4rw := 0
while ($fg4rw<8)
%abq1p[$fg4rw] := %rkvvz[$fg4rw]
inc($fg4rw)
end while
$vdkem := $b3gse
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
$b3gse := $zasdd
dec($iz1y0)
call RenderPage
end on
on ui_control($pjshy)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($oepih)
if ($oepih=1)
$vq2nm := 0
$4rrbn := 0
$ebibk := 0
$yu0aj := 0
$sdykd := 0
$gj1ot := 0
$mqxss := 3
$3e5hu := %0w0cg[0]
$ngpxy := %0w0cg[1]
$plc51 := %0w0cg[2]
$f41zv := %0w0cg[3]
$mhujk := %0w0cg[4]
$ds2bq := %0w0cg[5]
$2eux4 := %0w0cg[6]
$qymue := %0w0cg[7]
$ngbni := %0w0cg[8]
else
$oepih := 1
end if
call RenderPage
end on
on ui_control($egnks)
$egnks := 0
$fg4rw := 0
while ($fg4rw<8)
%0w0cg[$fg4rw] := %dswcz[$fg4rw]
inc($fg4rw)
end while
$pjshy := $bmaa1
$fg4rw := 0
while ($fg4rw<8)
%dswcz[$fg4rw] := %abq1p[$fg4rw]
inc($fg4rw)
end while
$bmaa1 := $vdkem
$fg4rw := 0
while ($fg4rw<8)
%abq1p[$fg4rw] := %rkvvz[$fg4rw]
inc($fg4rw)
end while
$vdkem := $b3gse
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
$b3gse := $zasdd
dec($iz1y0)
call RenderPage
end on
on ui_control($bmaa1)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($ebibk)
if ($ebibk=1)
$vq2nm := 0
$4rrbn := 0
$oepih := 0
$yu0aj := 0
$sdykd := 0
$gj1ot := 0
$mqxss := 4
$3e5hu := %dswcz[0]
$ngpxy := %dswcz[1]
$plc51 := %dswcz[2]
$f41zv := %dswcz[3]
$mhujk := %dswcz[4]
$ds2bq := %dswcz[5]
$2eux4 := %dswcz[6]
$qymue := %dswcz[7]
$ngbni := %dswcz[8]
else
$ebibk := 1
end if
call RenderPage
end on
on ui_control($ial5g)
$ial5g := 0
$fg4rw := 0
while ($fg4rw<8)
%dswcz[$fg4rw] := %abq1p[$fg4rw]
inc($fg4rw)
end while
$bmaa1 := $vdkem
$fg4rw := 0
while ($fg4rw<8)
%abq1p[$fg4rw] := %rkvvz[$fg4rw]
inc($fg4rw)
end while
$vdkem := $b3gse
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
$b3gse := $zasdd
dec($iz1y0)
call RenderPage
end on
on ui_control($vdkem)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($yu0aj)
if ($yu0aj=1)
$vq2nm := 0
$4rrbn := 0
$oepih := 0
$ebibk := 0
$sdykd := 0
$gj1ot := 0
$mqxss := 5
$3e5hu := %abq1p[0]
$ngpxy := %abq1p[1]
$plc51 := %abq1p[2]
$f41zv := %abq1p[3]
$mhujk := %abq1p[4]
$ds2bq := %abq1p[5]
$2eux4 := %abq1p[6]
$qymue := %abq1p[7]
$ngbni := %abq1p[8]
else
$yu0aj := 1
end if
call RenderPage
end on
on ui_control($vim2k)
$vim2k := 0
$fg4rw := 0
while ($fg4rw<8)
%abq1p[$fg4rw] := %rkvvz[$fg4rw]
inc($fg4rw)
end while
$vdkem := $b3gse
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
$b3gse := $zasdd
dec($iz1y0)
call RenderPage
end on
on ui_control($b3gse)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($sdykd)
if ($sdykd=1)
$vq2nm := 0
$4rrbn := 0
$oepih := 0
$ebibk := 0
$yu0aj := 0
$gj1ot := 0
$mqxss := 6
$3e5hu := %rkvvz[0]
$ngpxy := %rkvvz[1]
$plc51 := %rkvvz[2]
$f41zv := %rkvvz[3]
$mhujk := %rkvvz[4]
$ds2bq := %rkvvz[5]
$2eux4 := %rkvvz[6]
$qymue := %rkvvz[7]
$ngbni := %rkvvz[8]
else
$sdykd := 1
end if
call RenderPage
end on
on ui_control($ptcjy)
$ptcjy := 0
$fg4rw := 0
while ($fg4rw<8)
%rkvvz[$fg4rw] := %nwmyg[$fg4rw]
inc($fg4rw)
end while
$b3gse := $zasdd
dec($iz1y0)
call RenderPage
end on
on ui_control($zasdd)
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($gj1ot)
if ($gj1ot=1)
$vq2nm := 0
$4rrbn := 0
$oepih := 0
$ebibk := 0
$yu0aj := 0
$sdykd := 0
$mqxss := 7
$3e5hu := %nwmyg[0]
$ngpxy := %nwmyg[1]
$plc51 := %nwmyg[2]
$f41zv := %nwmyg[3]
$mhujk := %nwmyg[4]
$ds2bq := %nwmyg[5]
$2eux4 := %nwmyg[6]
$qymue := %nwmyg[7]
$ngbni := %nwmyg[8]
else
$gj1ot := 1
end if
call RenderPage
end on
on ui_control($ulpy3)
$ulpy3 := 0
dec($iz1y0)
call RenderPage
end on
on ui_control($plc51)
select ($mqxss)
case 1
%xtrlv[2] := $plc51
case 2
%juxkx[2] := $plc51
case 3
%0w0cg[2] := $plc51
case 4
%dswcz[2] := $plc51
case 5
%abq1p[2] := $plc51
case 6
%rkvvz[2] := $plc51
case 7
%nwmyg[2] := $plc51
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($4tdq1)
$4tdq1 := 0
select ($mqxss)
case 1
$fg4rw := 0
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 0
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 0
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 0
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 0
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($f41zv)
select ($mqxss)
case 1
%xtrlv[3] := $f41zv
case 2
%juxkx[3] := $f41zv
case 3
%0w0cg[3] := $f41zv
case 4
%dswcz[3] := $f41zv
case 5
%abq1p[3] := $f41zv
case 6
%rkvvz[3] := $f41zv
case 7
%nwmyg[3] := $f41zv
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($aksxa)
$aksxa := 0
select ($mqxss)
case 1
$fg4rw := 1
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 1
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 1
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 1
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 1
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($mhujk)
select ($mqxss)
case 1
%xtrlv[4] := $mhujk
case 2
%juxkx[4] := $mhujk
case 3
%0w0cg[4] := $mhujk
case 4
%dswcz[4] := $mhujk
case 5
%abq1p[4] := $mhujk
case 6
%rkvvz[4] := $mhujk
case 7
%nwmyg[4] := $mhujk
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($jvlmm)
$jvlmm := 0
select ($mqxss)
case 1
$fg4rw := 2
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 2
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 2
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 2
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 2
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($ds2bq)
select ($mqxss)
case 1
%xtrlv[5] := $ds2bq
case 2
%juxkx[5] := $ds2bq
case 3
%0w0cg[5] := $ds2bq
case 4
%dswcz[5] := $ds2bq
case 5
%abq1p[5] := $ds2bq
case 6
%rkvvz[5] := $ds2bq
case 7
%nwmyg[5] := $ds2bq
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($qyytf)
$qyytf := 0
select ($mqxss)
case 1
$fg4rw := 3
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 3
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 3
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 3
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 3
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($2eux4)
select ($mqxss)
case 1
%xtrlv[6] := $2eux4
case 2
%juxkx[6] := $2eux4
case 3
%0w0cg[6] := $2eux4
case 4
%dswcz[6] := $2eux4
case 5
%abq1p[6] := $2eux4
case 6
%rkvvz[6] := $2eux4
case 7
%nwmyg[6] := $2eux4
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($bdep4)
$bdep4 := 0
select ($mqxss)
case 1
$fg4rw := 4
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 4
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 4
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 4
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 4
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($qymue)
select ($mqxss)
case 1
%xtrlv[7] := $qymue
case 2
%juxkx[7] := $qymue
case 3
%0w0cg[7] := $qymue
case 4
%dswcz[7] := $qymue
case 5
%abq1p[7] := $qymue
case 6
%rkvvz[7] := $qymue
case 7
%nwmyg[7] := $qymue
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($shsm4)
$shsm4 := 0
select ($mqxss)
case 1
$fg4rw := 5
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 5
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 5
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 5
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 5
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
on ui_control($ngbni)
select ($mqxss)
case 1
%xtrlv[8] := $ngbni
case 2
%juxkx[8] := $ngbni
case 3
%0w0cg[8] := $ngbni
case 4
%dswcz[8] := $ngbni
case 5
%abq1p[8] := $ngbni
case 6
%rkvvz[8] := $ngbni
case 7
%nwmyg[8] := $ngbni
end select
$fg4rw := 0
while ($fg4rw<=63)
%kfmds[$fg4rw] := 0
%wk1rq[$fg4rw] := 0
%gfaxy[$fg4rw] := 0
%p52vu[$fg4rw] := 0
%klvc4[$fg4rw] := 0
%gvlwp[$fg4rw] := 0
%n20pn[$fg4rw] := 0
inc($fg4rw)
end while
end on
on ui_control($4qsnv)
$4qsnv := 0
select ($mqxss)
case 1
$fg4rw := 6
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%xtrlv[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%xtrlv[0] := $3e5hu
case 2
$fg4rw := 6
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%juxkx[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%juxkx[0] := $3e5hu
case 3
$fg4rw := 6
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%0w0cg[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%0w0cg[0] := $3e5hu
case 4
$fg4rw := 6
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%dswcz[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%dswcz[0] := $3e5hu
case 5
$fg4rw := 6
while ($fg4rw<=5)
set_control_par(%mdxu0[$fg4rw*2],$CONTROL_PAR_VALUE,get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE))
%abq1p[$fg4rw+2] := get_control_par(%mdxu0[($fg4rw+1)*2],$CONTROL_PAR_VALUE)
inc($fg4rw)
end while
dec($3e5hu)
%abq1p[0] := $3e5hu
case 6
dec($3e5hu)
%rkvvz[0] := $3e5hu
end select
call RenderPage
end on
